home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Script / GTQLib1.2.as folder / Sample Scripts / CD Status < prev    next >
Encoding:
Text File  |  1994-05-03  |  1.1 KB  |  29 lines  |  [TEXT/ToyS]
  1. set tracksPlayed to (GiveMePlayedTracks() of application "ShufflePlayCD")
  2. set sTrckPlayed to "Tracks Played: "
  3. repeat with i in tracksPlayed
  4.     set sTrckPlayed to sTrckPlayed & i & ", "
  5. end repeat
  6. set sTrckPlayed to (omit in sTrckPlayed at (number of characters in sTrckPlayed) - 1 for 2)
  7.  
  8. set stat to (status of audio CD)
  9. set curTrack to (track of stat)
  10. set tInfo to (track information for audio CD for track curTrack)
  11.  
  12. set numTracks to (number of tracks on audio CD)
  13.  
  14. set stat to (status of audio CD)
  15. set sTimePlayed to "Time Passed: " & (track mins of stat) & ":"
  16. if (track secs of stat) < 10 then set sTimePlayed to sTimePlayed & "0"
  17. set sTimePlayed to sTimePlayed & (track secs of stat)
  18.  
  19. set timeRem to ((60 * (mins of tInfo) + (secs of tInfo)) ¬
  20.     - (60 * (track mins of stat) + (track secs of stat)))
  21. set mn to (timeRem div 60)
  22. set sc to (timeRem mod 60)
  23. set sTimeRem to "Time Remaining: " & mn & ":"
  24. if (sc < 10) then set sTimeRem to sTimeRem & "0"
  25. set sTimeRem to sTimeRem & sc
  26.  
  27. set str to "Track: " & curTrack & " of " & numTracks & return & sTimePlayed & ¬
  28.     "   " & sTimeRem & return & sTrckPlayed
  29. display dialog str